﻿

Public Class cLocalesGossipMenuOptions
    Private _arr As ArrayList
    Private _loc As UInt32

    Public Sub New(conn As MySQL, menu_id As UInt32, loc As UInt32)
        _loc = loc
        If IsNothing(conn) Then Throw New ArgumentNullException("cLocalesGossipMenuOptions: conn is nothing")
        Dim sql As String = "SELECT menu_id,id,option_text_loc" & loc & ",box_text_loc" & loc & " FROM locales_gossip_menu_option WHERE menu_id=" & menu_id & ";"
        _arr = conn.ReadRows(sql)
    End Sub
    Public ReadOnly Property Count As UInt32
        Get
            Return _arr.Count
        End Get
    End Property
    Public Property Item(Index As UInt32) As cLocalesGossipMenuOption
        Get
            Return _arr.Item(Index)
        End Get
        Set(value As cLocalesGossipMenuOption)
            Stop
        End Set
    End Property
  
End Class
